﻿' Fhame Rashid 09209531, October 21st 2012
' MSc Software Engineering 
' WSCC Assignment 1:Initial web 2.0 site idea and Subversion 
' Email: f.rashid@outlook.com, www.frashidwscc.codeplex.com, https://frashid.net
Public Class _Default
    Inherits System.Web.UI.Page
    Public Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
        ' Call Function(s)
        lblResult.Text = calculateSum(txtBox_A.Text, txtBox_B.Text)
        studentInfo(lbl_studentinfo.Text)
    End Sub
    'Functions to Pass variable and Calculate
    Public Function calculateSum(ByVal AStr As String, ByVal BStr As String) As String
        Dim A, B, O As Single
        A = CSng(txtBox_A.Text)
        B = CSng(txtBox_B.Text)
        O = A + B
        Return CStr(O)
    End Function
    'Function to display Students Name
    Public Function studentInfo(ByVal name As String) As String
        lbl_studentinfo.Text = "Fhame Rashid 09209531"
        Return (lbl_studentinfo.Text)
    End Function
End Class